home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / adv2 / game.ags < prev    next >
Text File  |  1994-06-01  |  5KB  |  259 lines
  1. GO *SETUP
  2.         アドベンチャー２
  3.             サンプルＤＥＭＯプログラム
  4.  
  5.                      Copyright(C) 1994 おこめシステム
  6.  
  7. シナリオは、８０００行まで書けます。
  8. それ以上増やすには、プログラムを書き換えるか、シナリオファイルを分割するか、
  9. してください。
  10.  
  11. *ITEM
  12. 爆弾
  13. お茶漬け
  14. タイムマシン
  15. 骸骨
  16. お弁当
  17. 水筒
  18. お菓子
  19. 果物
  20. たこ焼き
  21. 乗車券
  22.  
  23. アイテムをサポートする予定です。（現段階では未サポート）
  24. そのときには、配列の一部を所有アイテム領域に利用できるようになります。
  25. 金銭・数値のサポートは、未定です。
  26.  
  27. @CMD0
  28. はなす
  29. しらべる
  30. 何だろう
  31. いどう
  32. もちもの
  33. システム
  34.  
  35. @YNA
  36. ＹＥＳ
  37. ＮＯ
  38.  
  39. @YN
  40. はい
  41. いいえ
  42.  
  43. @IDOU
  44. 広場
  45. 酒場
  46. ごみ捨て場
  47. 港
  48.  
  49. @SYS
  50. ＳＡＶＥ
  51. ＬＯＡＤ
  52. 終了
  53.  
  54. ここでは、コマンド集をまとめて書いていますが、
  55. 実行されない行の好きなところに書くことができます。
  56. ラベルと間違えるような書き方をしないようにだけ、注意してください。
  57.  
  58. コマンド表示は、空行 or # で終わります。
  59. ラベルはシナリオと区別するために、通常は、＠からはじめます。
  60.  
  61.  
  62. *SETUP
  63. サンプル中に、ＣＤ－ＲＯＭのデータを使う部分があります。
  64. システムソフトウェアＶ２．１Ｌ３０のＣＤ－ＲＯＭを
  65. セットして、「ＹＥＳ」を選択してください。
  66. WAIT 20
  67. なければ「ＮＯ」を選択してください。
  68. CMD M100 @YNA
  69. M100=M100-1
  70. IF M100=0 THEN *CDON
  71. ＣＤ－ＲＯＭを利用できないので、
  72. 一部機能を省いたモードで実行します。
  73. #
  74. GOTO *START
  75.  
  76. *CDON
  77. ＣＤ－ＲＯＭのデータも交えながら、
  78. フル機能の体験ができます。
  79. #
  80. GO *START
  81.  
  82. この場合、ＣＤの有無を聞き、それによって、後の動作を変えるようにしています。
  83. 実際のＣＤ－ＲＯＭの確認はできません。
  84.  
  85. 注釈はこのように、空いた行に自由に書くことができます。
  86.  
  87. ＩＦ文の後ろには、ラベル以外の物は付けられません。
  88. ＴＨＥＮは、省略できます。
  89.  
  90. ここから、シナリオのはじまりです。
  91.  
  92. *START
  93. HIROBA.TIF
  94. 　　アドベンチャー２
  95. 　　　　　サンプルな作品
  96.  
  97. 　　　　制作　おこめシステム
  98. #
  99. CLS
  100. GO *L1
  101. 昔も今もあるところに、平和な町がありました。
  102. #
  103. ある所に、マノリレという男が父親と二人で平和に暮らしておったが、ヒソイスという大魔王があらわれてから、苦しい日々が続いていた。
  104. *L1
  105. この/50、/7一見平和に見える町は、ヒソイス大魔王の襲撃に遇い、
  106. IF M100 *V01ST
  107. Q:\FJ2\SE\J_SOUND\BATTLE.SND
  108. *V01ST
  109. 今もその影を残す、小さな町である。
  110. この町には、ある親子が二人で暮らしていたが、
  111. 父親は、ヒソイス襲撃の際の戦いで、行方不明となっていた。
  112. そんなある日のこと
  113. #
  114. IF M100 *V02ST
  115. Q:\MVDEMO\MV_DEMO0\DATA\EGYP.MVE
  116. /2（シナリオとは何の関係もありませんでした）/7
  117. #
  118. Q:\FJ2\EUP\BIZET.EUP
  119. *V02ST
  120. 風の便りが、父親の行方を伝えてきた。
  121. M4=*WA1
  122. M10=*TB
  123. GOTO *HIROBA
  124. 　--------------------------------------------
  125. 　ここが、第一場面｢広場｣のメインコマンドです。
  126. 　--------------------------------------------
  127. 　←半角注釈は、前に、全角スペースを入れると安全です。
  128. *HIROBA
  129. CMD M0 @CMD0
  130. ON M0 GO M4 M10 *TC *TD *TE *SYSTEM
  131. GOTO *HIROBA
  132. 　この上が、第一場面のメインコマンドです。
  133. *WA1
  134. CLS
  135. 「/10マノリレー/7　お父さんが生きているっていうの本当なの？
  136. #
  137. 声を掛けてきたのはレイリアである。
  138. M4=*WA2
  139. RET
  140.  
  141. *WA2
  142. 「お父さんが生きていたってはなし、もう知ってる？
  143. ON CMD @YN GOTO *WA21 *WA22
  144. RET
  145. *WA21
  146. そこに、誰かがやって来た。
  147. #
  148. 「/4よお！/7マノリレ、親父を探しに行くのか？
  149. 　だったら俺も連れてってくれ。
  150. 隣の太郎らしい。
  151. #
  152. そんな、ほんとは何も知らなかったのに、
  153. /3ちょっとストップ/7
  154. そういう事で、本当は知りませんでしたね。
  155. #
  156. きんた太郎は、何処かに行ってしまった。
  157. 　ではもう一度
  158. M4=*WA22
  159. RET
  160. *WA22
  161. 「遠くの街で見た人がいるって、町中の噂でしょ。
  162. 　　知らなかった/15のぉ/25～。/7ポン
  163. 知らなかったんだから、仕方がない。
  164. #
  165. 親父が生きているというのは、どんな噂なのだろうか。
  166. 慌ててみることにしよう。
  167. 「そ、そそれって本当か！！親父はどこに居たんだ。
  168. M4=*WA3
  169. RET
  170. *WA3
  171. 「ちょっと待って。詳しいことは、まだ聞いてないの。
  172. 　あっちこっちで噂なんだけど、急いできたから。
  173. #
  174. と言った具合に話は進行していった。
  175. M4=*WA4
  176. RET
  177. *WA4
  178. このシナリオは、ここまでしかできていない。
  179. RET
  180. *TB
  181. /5テキストで書く文章のあいだに、簡単なコマンドを少し加えると、シナリオに流れができ、だんだんと、プログラムになっていきます。/7
  182. M10=*SS
  183. RET
  184. *SS
  185. これは、アドベンチャーシステムの機能です。
  186. 繰り返し、表示させるのも、難しくありませんよ。
  187. コマンドは、サブコマンドも合わせてサブルーチンにしておくと、使いやすいですよ。
  188. M10=*TB
  189. RET
  190. *TC
  191. コマンド三番目
  192. RET
  193. *TD
  194. 画面だけ移動してみます。
  195. ON CMDS @IDOU HIROBA.TIF PUB.TIF GOMI.TIF *PORT
  196. RET
  197. *TE
  198. もちもの
  199. 将来、コマンド的に、対応予定です。
  200. それまでは、何とかやりくりしてください。
  201. RET
  202. *SYSTEM
  203. システム
  204. ON CMDS @SYS GO *SAVE *LOAD *FIN
  205. GOTO *HIROBA
  206.  
  207. *SAVE
  208. SAVE 1
  209. セーブ終了だろうか
  210. ロードしても続きはここからになるので、画像ロードはここで一手に用意しておく必要がある。
  211. RET
  212.  
  213. *LOAD
  214. LOAD 1
  215. これが表示されると、ロードできなかったという事になる。
  216. RET
  217.  
  218. *NO
  219. CLS
  220. 現在、このコマンドは利用できません。
  221. RET
  222.  
  223. *FIN
  224. あれやこれやとしているうちに詳しい事が判り、マノリレは、親父を探す旅に出た。
  225.  
  226. マノリレは　父親を捜し出すことができるのか！！
  227. #
  228. こんな具合に、いろんな機能が使えます。
  229. ストーリーになってなかったですが、
  230. 続きは自分で作ってみてください。
  231. #
  232. 時間がなかったんよぉ～。
  233. #
  234. CLS
  235.  
  236. 　　　　　　　－－　おわり　－－
  237.  
  238. サンプルデモンストレーション体験版を終了します。
  239. #
  240. END
  241. ＥＮＤは絶対に必要です。ないと終われないよ。
  242.  
  243. 緊急追加した船着場のシーンです。
  244.  
  245. *PORT
  246. PORT.TIF
  247. ふなつきにつきました。
  248. *PORTCOM
  249. CMD M0 @CMD0
  250. ON M0 *PW1 *PW2 *TC *TD *TE *SYSTEM
  251. IF M0=4 GOTO *HIROBA
  252. GOTO *PORTCOM
  253. *PW1
  254. 誰かいるんですか？
  255. RET
  256. *PW2
  257. 船がありますね。
  258. RET
  259.